<%@ Language=VBScript%> <% dim sStr,SlNo, Festival, Cntr 'Kerala Hit counter '-------------------------------------------- SERVER.EXECUTE("keralaHitStats.asp") '-------------------------------------------- SlNo = Request("ClaSlNo") Name = Request("Categories") sStr="" Openconnection MyConn Set rsMatrimony = Server.CreateObject ("ADODB.Recordset") '----- Create a query definition -------- sStr="" sStr = "Select ClaSlNo, ClaAdSubcategories, ClaAdHeadLine, ClaBriefDesc, ClaAdditionaInfo, ClaPostDate,ClaActiveYN From ClassifiedAds Where ClaSlNo = " & SlNo & " And ClaAdSubcategories Like '%"& Name &"%' " rsMatrimony.Open sStr, MyConn, adOpenStatic , adLockOptimistic %> <%=Title%>Matrimony Details
 
<%if not rsMatrimony.eof then %>
  <%=rsMatrimony.Fields("ClaAdSubcategories")%>
<%= rsMatrimony.Fields("ClaAdHeadLine")%>
<%=rsMatrimony.Fields("ClaBriefDesc")%>
<%=rsMatrimony.Fields("ClaAdditionaInfo")%>
<%ELSE%>
Details Not Found Please Try Again...
<%End If%>